www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/EnCulture.asp
<!--#include file="Inc/EnSysProduct.asp" --> <!--#include file="inc/Skin_css.asp"--> <!-- #include file="EnHead.asp" --> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="5" valign="top" bgcolor="#FFFFFF"></td> </tr> <tr> <td height="72" valign="top" bgcolor="#FFFFFF"><table width="746" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td class="tdbg_left" width="190" height="179" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="34" class="title_left"> <img src="Images/smallbook.jpg" width="10" height="10"> User login </td> </tr> <tr> <td height="5"></td> </tr> <tr> <td height="10"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <% call ShowUserLogin() %> </td> </tr> </table></td> </tr> <tr> <td height="5"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="34" class="title_left"> <img src="Images/smallbook.jpg" width="10" height="10"> About us </td> </tr> <% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select Title from Aboutuszxb where Language='0' order by Aboutusorder" rslist.open sql,conn,1,3 do while not rslist.eof %> <tr> <td height="20"> <div align="center"><a href="Aboutus.asp?Title=<%=rslist("Title")%>"><%=rslist("Title")%></a></div></td> </tr> <TR> <TD height=1 colspan="2" background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" width=10></TD> </TR> <%rslist.movenext loop%> <tr> <td height="20"> <div align="center"><a href="EnCulture.asp">Culture</a></div></td> </tr> <TR> <TD height=1 colspan="2" background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" width=10></TD> </TR> </table></td> <td width="6"></td> <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="title_right" height="32"> <img src="Images/smallbook.jpg" width="10" height="10"> Culture</td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <TR> <TD> <% flag="尚未处理" set rs=server.createobject("adodb.recordset") sqltext="select * from culture where Language='0' Order BY id desc" rs.open sqltext,conn,1,1 dim PerPage PerPage=10 '假如没有数据时 If rs.eof and rs.bof then response.write "<p align='center'><font color='#ff0000'>还没任何文章</font></p>" response.end End if '取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示 text="0123456789" Rs.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="21%" bgcolor="#eeeeee"> Home >> Culture</td> <td width="79%" bgcolor="#eeeeee"> </td> </tr> <tr> <td colspan="2" bgcolor="#999999"></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF"> <tr> <td height="8" colspan="3"></td> </tr> <% if not rs.eof then i=1 do while not rs.eof %> <tr> <td width="5%" height="18"> <img src="Img/dot.gif" width="7" height="11"> </td> <td style='BORDER-bottom: #999999 1px dotted' width="76%"><a href="EnculturenewsInfo.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a> <font color="#0066CC" face="Arial"> </font> <%if rs("time")=date() then%> <strong><font color="#FF0000" face="Arial">New</font></strong> <%end if%> </td> <td style='BORDER-bottom: #999999 1px dotted' width="19%"><%=rs("time")%></td> </tr> <% i=i+1 if i > Perpage then exit do rs.movenext loop end if %> <tr> <td height="8" colspan="3"></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#eeeeee"><div align="right"> <% Response.write "Total" Response.write "Total" & Cstr(Rs.RecordCount) & "Record " Response.write "No" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "<a href='Culture.asp?&page="+cstr(1)+"'> First Page </a>" Response.write "<a href='Culture.asp?page="+Cstr(currentpage-1)+"'> Previous Page </a>" Else Response.write " Previous Page " End if If currentpage < Rs.PageCount Then Response.write "<a href='Culture.asp?page="+Cstr(currentPage+1)+"'> Next Page </a>" Response.write "<a href='Culture.asp?page="+Cstr(Rs.PageCount)+"'> Last Page </a>" Else Response.write "" Response.write " Next Page " End if Response.write "Go" response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>" for i = 1 to Rs.PageCount if i = currentpage then response.write"<option value='Culture.asp?page="&i&"&id="&id&"' selected>"&i&"</option>" else response.write"<option value='Culture.asp?page="&i&"&id="&id&"'>"&i&"</option>" end if next response.write"</select>Page" %> </div></td> </tr> <tr> <td bgcolor="#999999"></td> </tr> </table> <% End sub %> </TD> </TR> </table> </td> </tr> </table></td> </tr> </table></td> </tr> </table> <%rs.close set rs=nothing rslist.close set rslist=nothing %> <!-- #include file="Inc/EnFoot.asp" --> </BODY></HTML>